﻿Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub 三星中任意2码统计ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 三星中任意2码统计ToolStripMenuItem.Click
        Dim frmN As New w0001
        frmN.Show()
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        init_Data()
        init_fg()
    End Sub
    Sub init_fg()
        fg.Rows.Count = general_Ubound + 2
        For i = 0 To general_Ubound
            fg.Item(i + 1, 0) = arrQH(i)
            For j = 0 To 4
                fg.Item(i + 1, j + 1) = arrJH_sep_I(i, j)
            Next
        Next
    End Sub

    Private Sub fg_Click(sender As Object, e As EventArgs) Handles fg.Click
        ToolStripStatusLabel2.Text = fg.ColSel
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        On Error GoTo errhandler

        For i = 0 To fg.Rows.Count - 1
            If fg.Item(i, fg.ColSel) = ToolStripTextBox1.Text Then
                fg.TopRow = i + 1
                fg.Select(i, fg.ColSel)
                Exit For
            End If
        Next
        Exit Sub
errhandler:
        MsgBox(Err.Description & vbCrLf & Err.Number, vbOKOnly + vbInformation, "操作提示")
        Exit Sub
    End Sub

    Private Sub 复制当前单元格内容ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 复制当前单元格内容ToolStripMenuItem.Click
        Clipboard.Clear()
        Clipboard.SetText(fg.Item(fg.RowSel, fg.ColSel))
    End Sub

    Private Sub 定位统计1ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 定位统计1ToolStripMenuItem.Click
        Dim frmN As New w0002
        frmN.Show()
    End Sub

    Private Sub 五星四码出三胆ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 五星四码出三胆ToolStripMenuItem.Click
        Dim frmN As New w0003
        frmN.Show()
    End Sub

    Private Sub 五星特殊形态w0004ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 五星特殊形态w0004ToolStripMenuItem.Click
        Dim frmN As New w0004
        frmN.Show()
    End Sub

    Private Sub 五星常规形态ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 五星常规形态ToolStripMenuItem.Click
        Dim frmN As New w0005
        frmN.Show()
    End Sub

    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        ToolStripTextBox1.Text = Clipboard.GetText
    End Sub
End Class
